home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / audio / sampletools / agmsrec5.lha / Test.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-12-19  |  913 b   |  26 lines
  1. /* This is a test of the ARexx port in AGMSRecordSound.  It starts up
  2.    AGMSRecordSound, waits a while (for it to finish starting up) then
  3.    lets it record for 5 seconds, then stops the recording. */
  4.  
  5. SAY "AREXX Script is running AGMSRecordSound."
  6. ADDRESS COMMAND "run AGMSRecordSound file T:JunkSound hz 4000"
  7.  
  8. SAY "AREXX Script is waiting for the AGMSRecordSound AREXX port to appear."
  9. SAY SHOW("Ports")
  10. DO WHILE ~ SHOW("Ports","AGMSRecordSound")
  11.   SAY "AREXX Script is still waiting for AGMSRecordSound to appear..."
  12.   SAY SHOW("Ports")
  13.   ADDRESS COMMAND "Wait 1 sec"
  14. END
  15. SAY "AREXX Script has found the AGMSRecordSound port."
  16. SAY SHOW("Ports")
  17.  
  18. SAY "AREXX Script realises that recording is going on.  Waiting for 5 seconds."
  19.  
  20. ADDRESS COMMAND "Wait 5 sec"
  21.  
  22. SAY "AREXX Script is stopping the recording."
  23. ADDRESS "AGMSRecordSound" "StopRecording"
  24.  
  25. SAY "AREXX Script has finished.  Recording should stop soon."
  26.